-- card: 2817 from stack: in -- bmap block id: 0 -- flags: 4000 -- background id: 2756 -- name: CopyStack -- part 7 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=116 top=21 right=43 bottom=300 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Install CopyStack On Home ----- HyperTalk script ----- on mouseUp push card set the lockScreen to true choose button tool click at the loc of card button "CopyStack" doMenu "Copy Button" go to Home doMenu "Paste Button" pop card choose browse tool set the lockScreen to false put "CopyStack now installed on your Home card" wait for 2 seconds hide message end mouseUp -- part 8 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=318 top=21 right=43 bottom=495 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Put CopyStack In Memory ----- HyperTalk script ----- on mouseUp set the lockScreen to true choose button tool click at the loc of card button "CopyStack" doMenu "Copy Button" set the lockScreen to false put "CopyStack button now in memory" wait for 2 seconds hide message choose browse tool end mouseUp -- part 9 (field) -- low flags: 01 -- high flags: 0004 -- rect: left=2 top=47 right=339 bottom=510 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: Instructions -- part 17 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=28 top=26 right=43 bottom=91 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 2 -- text size: 9 -- style flags: 512 -- line height: 12 -- part name: CopyStack ----- HyperTalk script ----- on Search global Source,Destination set lockScreen to true doMenu "Open Stack..." get the name of this stack put it into Stak go to Source set lockScreen to false put word 2 of Stak into Destination end Search on mouseUp global Source,Destination,StartCard,CopyCard,NumberOfCards,Selection put empty into Destination get the name of this stack put word 2 of it into Source get the id of this card put it into StartCard put "Will copy from stack" && Source && ", starting with" && StartCard set lockScreen to true answer "What is the Destination stack?" with "Name" or "Search" or "Cancel" if it = "Cancel" then hide message if it = "Cancel" then exit mouseUp if it = "Search" then put empty into it if it = "Name" then ask "What is the Source name?" with empty else Search if it <> empty then put numToChar(34) & it & numToChar(34) into temp1 if Destination = empty then put temp1 into Destination put "Will copy to stack" && Destination go to Source go to StartCard ask "Number of Cards (Including this Card)" with empty put it into NumberOfCards put empty into Selection repeat for NumberOfCards times put Selection & the id of this card & return into Selection put "Getting information from" && the id of this card go to next card end repeat put 0 into temp1 repeat for NumberOfCards times add 1 to temp1 put line temp1 of Selection into temp2 go to temp2 put "Copying" && temp2 doMenu "Copy Card" go to last card of Destination put "Pasting" && temp2 doMenu "Paste Card" if temp1 = 1 then get the id of this card put it into CopyCard go to Source end repeat set lockScreen to false put "Copying complete" wait for 2 seconds hide message answer "Remove CopyStack from this operation?" with "Yes" or "No" if it = "No" then go to StartCard if it = "No" then hide message if it = "No" then exit mouseUp set lockScreen to true choose button tool go to Destination go to CopyCard click at the loc of card button "CopyStack" doMenu "Cut Button" go to Source go to StartCard click at the loc of card button "CopyStack" doMenu "Cut Button" choose browse tool set lockScreen to false end mouseUp -- part contents for card part 9 ----- text ----- CopyStack Version 1.00 Have you ever wanted to add a card or series of cards from one stack to another? This stack will copy a card or consecutive series of cards from a "Source" stack to a "Destination" stack, automatically. Start by selecting Put CopyStack In Memory. Use COPIES of the originals until you are familiar with the operation of this stack. Then go to the card in the stack you wish to copy from. Once there, select Edit/Paste Button or use Command-V. Choose the browse tool on the Tools menu. Now count the cards that you want to copy. It is best to use Command-3 just in case the "Go Next" buttons do not select consecutive cards. Return to the card that has CopyStack on it. Click on CopyStack and answer the Destination question using the full name of the stack or having the Search function locate it. The Search function is a little script used for locating stack names, feel free to implement it in your own stacks. You will be prompted for the number of cards that are to be copied from the Source stack to the Destination stack. A running commentary will appear in the message box. Once completed, CopyStack will return and ask if you wish to remove the CopyStack button. Use Install CopyStack On Home for installing CopyStack on your Home card for future use. LIMITATIONS: CopyStack was not designed to be all powerful! It cannot anticipate the cards you want copied from one stack to another. Be careful counting the cards that you want to copy and always include the card that has CopyStack on it. CopyStack will always put the copied cards at the end of the Destination stack. Also, if the author has been rude enough to put in a safeguard to stop you from looking at the cards scripts, try CopyStack only on a copy of the offending program. If you have any ideas on how to improve this stack, let me know. Please write to me at the following address. Wallace Karraker, CIS 76354,3026, Dodge City, Kansas (p.s. If a catastrophic system error does occur, I KNOOOW KNOTHINK)